﻿Imports System.Text
Imports Microsoft.VisualStudio.TestTools.UnitTesting

<TestClass()>
Public Class CountryConverterTests

    <TestMethod()>
    Public Sub ConvertStringToExistingEnum()

        Dim value = "CHI"

        Hoise.Savegame.Model.Parser.CountryConverter(value)

    End Sub

    <TestMethod()>
    <ExpectedException(GetType(InvalidOperationException))>
    Public Sub ConvertStringToUnexistingEnum()

        Dim value = "MyUnexistingEnum"

        Hoise.Savegame.Model.Parser.CountryConverter(value)

    End Sub

End Class